home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DATETIME
/
TIMERS
/
TIMERS.ASM
next >
Wrap
Assembly Source File
|
1990-10-22
|
685b
|
30 lines
;******************************************************************************
; TIMERS.ASM - Routines which intercept 55ms PC interupt $1C to do timing
; Assemble with TASM
; Author - Richard Mullen
; Date - 10/20/90
;******************************************************************************
; Assembly routine for unit Timers.pas
.model tpascal
p8086
.code
ideal
public CallRoutine
; procedure CallRoutine (Vector : pointer);
PROC CallRoutine NEAR Vector : dword
pushf ; Simulate interupt call. The
cli ; routine at Vector should
call [Vector] ; end with an RETI
ret ;
endp CallRoutine
end